Program Pzim ;
 var
 a,soma,i,par,impar:integer;
 media:real;
 
  begin
  soma:=0; i:=0; par:=0;impar:=0  ;
  writeln('Escreva  numeros separados por "enter" e escreva o numero 0 para parar');
  repeat
   readln(a);
   soma:=soma+a; 
   
   i:=i+1; 
   if a mod 2 =0 then
   		par:=par+1
   else 
   	impar:=impar+1;
   until a=0;	
   
   writeln('Numero de impares :',impar);
   media:=soma/i; 
   writeln('Numero de pares:',par);
   Writeln('A media é:',media);
   
    
 end.